home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / input.arc / MHSPEAKR.SUB < prev    next >
Encoding:
Text File  |  1987-08-17  |  473 b   |  28 lines
  1. '  Mh.Speaker
  2. '  Copyright 1987 MicroHelp, Inc. - All Rights Reserved
  3.  
  4. '  Sounds the speaker for bad key presses and what nots.
  5.  
  6. Sub Mh.Speaker Static
  7.  
  8.     Speaker.on=-1         ' change this to 0 for "silent" mistakes
  9.     
  10.     If Speaker.on=0 Then Exit Sub
  11.     Out &H43,182'        set up for sound
  12.     Out &H42,&H33
  13.     Out &H42,5
  14.     N=Inp(&H61)
  15.     N1=N
  16.     N=N OR 3
  17.     Out &H61,N
  18.     For A!=1 TO 500
  19.     NEXT
  20.     Out &H42,&H33
  21.     Out &H42,6
  22.     For A!=1 TO 500
  23.     Next
  24.     Out &H61,N1
  25.  
  26. End Sub
  27.  
  28.